home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / copymove.swg / 0001_Copy File #1.pas next >
Pascal/Delphi Source File  |  1993-05-28  |  647b  |  21 lines
  1. Program Copy;
  2.  
  3. Var InFile, OutFile : File;
  4.     Buffer          : Array[ 1..512 ] Of Char;
  5.     NumberRead,
  6.     NumberWritten   : Word;
  7.  
  8. begin
  9.    If ParamCount <> 2 Then Halt( 1 );
  10.    Assign( InFile, ParamStr( 1 ) );
  11.    Reset ( InFile, 1 );     {This is Reset For unTyped Files}
  12.    Assign  ( OutFile, ParamStr( 2 ) );
  13.    ReWrite ( OutFile, 1 );  {This is ReWrite For unTyped Files}
  14.    Repeat
  15.       BlockRead ( InFile, Buffer, Sizeof( Buffer ), NumberRead );
  16.       BlockWrite( OutFile, Buffer, NumberRead, NumberWritten );
  17.    Until (NumberRead = 0) or (NumberRead <> NumberWritten);
  18.    Close( InFile );
  19.    Close( OutFile );
  20. end.
  21.